home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / dviware / umddvi / doc / box.tex < prev    next >
Text File  |  1990-10-01  |  796b  |  31 lines
  1. % Fancy frames
  2. %
  3. % Usage:
  4. % \fancyframebox {rule thickness} {separation from inner guy} {inner guy}
  5. % 
  6. % \makeemptybox {width} {height} {depth}
  7.  
  8. \newbox\FancyboxA
  9. \newdimen\FancyboxD
  10.  
  11. \def\makeemptybox#1#2#3{\setbox\FancyboxA=\hbox{}\wd\FancyboxA=#1\relax
  12.     \ht\FancyboxA=#2\relax \dp\FancyboxA=#3\relax \box\FancyboxA }
  13.  
  14. \def\fancyframebox#1#2#3{%
  15.     \leavevmode
  16.     \setbox\FancyboxA=\hbox{#3}%
  17.     \dimen\FancyboxD=#1\relax
  18.     \advance\dimen\FancyboxD by #2\relax
  19.     \advance\dimen\FancyboxD by \dp\FancyboxA
  20.     \hbox{%
  21.     \lower\dimen\FancyboxD\hbox{%
  22.         \vbox{%
  23.         \hrule height #1\relax
  24.         \hbox{%
  25.             \vrule width #1\relax
  26.             \kern #2\relax
  27.             \vbox{\vskip #2\relax\box\FancyboxA\vskip #2\relax}%
  28.             \kern #2\relax
  29.             \vrule width #1\relax}%
  30.         \hrule height #1\relax}}}}
  31.